object FormMain: TFormMain
  Left = 0
  Top = 0
  Caption = 'USART Configurator'
  ClientHeight = 463
  ClientWidth = 809
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label_NumReadByte: TLabel
    Left = 457
    Top = 415
    Width = 64
    Height = 13
    Caption = 'NumRec: 000'
  end
  object ButtonCommSetting: TButton
    Left = 20
    Top = 20
    Width = 115
    Height = 30
    Caption = 'Com Port Setting'
    TabOrder = 0
    OnClick = ButtonCommSettingClick
  end
  object ButtonCommActive: TButton
    Left = 154
    Top = 20
    Width = 80
    Height = 30
    Caption = 'Comm Active'
    TabOrder = 1
    OnClick = ButtonCommActiveClick
  end
  object MemoSend: TMemo
    Left = 542
    Top = 70
    Width = 250
    Height = 339
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Calibri'
    Font.Style = []
    Lines.Strings = (
      'Send Data :')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object MemoReceive: TMemo
    Left = 271
    Top = 70
    Width = 250
    Height = 339
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Calibri'
    Font.Style = []
    Lines.Strings = (
      'Receive Data :')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 3
    OnDblClick = MemoReceiveDblClick
  end
  object PageControl1: TPageControl
    Left = 14
    Top = 70
    Width = 239
    Height = 339
    ActivePage = TabSheet1
    TabOrder = 4
    object TabSheet1: TTabSheet
      Caption = 'Send'
      object GroupBox1: TGroupBox
        Left = 25
        Top = 14
        Width = 185
        Height = 275
        TabOrder = 0
        object Label1: TLabel
          Left = 16
          Top = 10
          Width = 69
          Height = 13
          Caption = 'Zigbee Format'
        end
        object Label2: TLabel
          Left = 18
          Top = 95
          Width = 84
          Height = 13
          Caption = 'Computer Format'
        end
        object Label3: TLabel
          Left = 18
          Top = 181
          Width = 22
          Height = 13
          Caption = 'Free'
        end
        object EditZigbeeSend: TEdit
          Left = 18
          Top = 29
          Width = 155
          Height = 21
          TabOrder = 0
          OnKeyPress = EditZigbeeSendKeyPress
        end
        object ButtonZigbeeSend: TButton
          Left = 16
          Top = 60
          Width = 75
          Height = 25
          Caption = 'Send'
          TabOrder = 1
          OnClick = ButtonZigbeeSendClick
          OnMouseDown = ButtonZigbeeSendMouseDown
        end
        object EditCompSend: TEdit
          Left = 18
          Top = 115
          Width = 155
          Height = 21
          TabOrder = 2
          OnKeyPress = EditCompSendKeyPress
        end
        object ButtonCompSend: TButton
          Left = 18
          Top = 145
          Width = 75
          Height = 25
          Caption = 'Send'
          TabOrder = 3
          OnClick = ButtonCompSendClick
          OnMouseDown = ButtonCompSendMouseDown
        end
        object EditFreeSend: TEdit
          Left = 18
          Top = 201
          Width = 155
          Height = 21
          TabOrder = 4
          OnKeyPress = EditFreeSendKeyPress
        end
        object ButtonFreeSend: TButton
          Left = 18
          Top = 231
          Width = 75
          Height = 25
          Caption = 'Send'
          TabOrder = 5
          OnClick = ButtonFreeSendClick
          OnMouseDown = ButtonFreeSendMouseDown
        end
        object CheckBoxFreeCheck: TCheckBox
          Left = 105
          Top = 178
          Width = 68
          Height = 17
          Caption = 'Checksum'
          Checked = True
          State = cbChecked
          TabOrder = 6
        end
        object CheckBoxFreeSend: TCheckBox
          Left = 132
          Top = 241
          Width = 50
          Height = 15
          Caption = 'Send'
          TabOrder = 7
          OnClick = CheckBoxFreeSendClick
        end
        object CheckBoxCompSend: TCheckBox
          Left = 132
          Top = 155
          Width = 50
          Height = 15
          Caption = 'Send'
          TabOrder = 8
          OnClick = CheckBoxCompSendClick
        end
        object CheckBoxZigbeeSend: TCheckBox
          Left = 132
          Top = 69
          Width = 50
          Height = 16
          Caption = 'Send'
          TabOrder = 9
          OnClick = CheckBoxZigbeeSendClick
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Send TXT'
      ImageIndex = 1
      object ButtonTXTSend: TButton
        Left = 16
        Top = 272
        Width = 75
        Height = 25
        Caption = 'Send'
        TabOrder = 0
        OnClick = ButtonTXTSendClick
        OnMouseDown = ButtonTXTSendMouseDown
      end
      object MemoTXTSend: TMemo
        Left = 16
        Top = 16
        Width = 200
        Height = 240
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Calibri'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnKeyDown = MemoTXTSendKeyDown
      end
      object ButtonClearTXTSend: TButton
        Left = 97
        Top = 272
        Width = 75
        Height = 25
        Caption = 'Clear'
        TabOrder = 2
        OnClick = ButtonClearTXTSendClick
      end
      object CheckBoxTXTSend: TCheckBox
        Left = 178
        Top = 281
        Width = 50
        Height = 15
        Caption = 'Send'
        TabOrder = 3
        OnClick = CheckBoxTXTSendClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'ReadType'
      ImageIndex = 2
      object RadioGroupReadType: TRadioGroup
        Left = 16
        Top = 16
        Width = 193
        Height = 120
        Caption = 'ReadType'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Calibri'
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          'Sim Comp'
          'Sim ReadMotor'
          'Sim WriteMotor')
        ParentFont = False
        TabOrder = 0
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'ReadMotor'
      ImageIndex = 3
      object GroupBoxReadMotor: TGroupBox
        Left = 16
        Top = 16
        Width = 193
        Height = 233
        Caption = 'ReadMotor'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Calibri'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label4: TLabel
          Left = 18
          Top = 30
          Width = 57
          Height = 19
          Caption = 'Motor ID'
        end
        object Label5: TLabel
          Left = 18
          Top = 70
          Width = 52
          Height = 19
          Caption = 'Position'
        end
        object Label6: TLabel
          Left = 18
          Top = 110
          Width = 49
          Height = 19
          Caption = 'Voltage'
        end
        object Label_ReadPosition: TLabel
          Left = 165
          Top = 70
          Width = 8
          Height = 19
          Alignment = taRightJustify
          Caption = '0'
        end
        object Label_ReadVoltage: TLabel
          Left = 165
          Top = 110
          Width = 8
          Height = 19
          Alignment = taRightJustify
          Caption = '0'
        end
        object Label7: TLabel
          Left = 18
          Top = 150
          Width = 31
          Height = 19
          Caption = 'Error'
        end
        object Label_ReadError: TLabel
          Left = 165
          Top = 150
          Width = 8
          Height = 19
          Alignment = taRightJustify
          Caption = '0'
        end
        object Edit_ReadMotorID: TEdit
          Left = 126
          Top = 27
          Width = 50
          Height = 27
          Alignment = taRightJustify
          NumbersOnly = True
          TabOrder = 0
          Text = '0'
          OnKeyPress = Edit_ReadMotorIDKeyPress
        end
        object Button_ReadMotor: TButton
          Left = 56
          Top = 185
          Width = 75
          Height = 25
          Caption = 'Read'
          TabOrder = 1
          OnClick = Button_ReadMotorClick
        end
      end
    end
  end
  object Button_ClearRecMemo: TButton
    Left = 271
    Top = 423
    Width = 75
    Height = 25
    Caption = 'Clear'
    TabOrder = 5
    OnClick = Button_ClearRecMemoClick
  end
  object Button_ClearSendMemo: TButton
    Left = 542
    Top = 423
    Width = 75
    Height = 25
    Caption = 'Clear'
    TabOrder = 6
    OnClick = Button_ClearSendMemoClick
  end
  object Button_PollTimerEanble: TButton
    Left = 705
    Top = 8
    Width = 96
    Height = 25
    Caption = 'Poll Timer: OFF'
    TabOrder = 7
    OnClick = Button_PollTimerEanbleClick
  end
  object Edit_TimPollInterval: TEdit
    Left = 705
    Top = 39
    Width = 96
    Height = 21
    TabOrder = 8
    Text = '1'
    OnKeyPress = Edit_TimPollIntervalKeyPress
  end
  object RadioGroup_ReceiveType: TRadioGroup
    Left = 271
    Top = 8
    Width = 250
    Height = 51
    Caption = 'RData Format'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'TXT Format'
      'Numerical Format')
    TabOrder = 9
  end
  object Edit_TimContInterval: TEdit
    Left = 584
    Top = 39
    Width = 96
    Height = 21
    TabOrder = 10
    Text = '100'
    OnKeyPress = Edit_TimContIntervalKeyPress
  end
  object Button_ContTimerEnable: TButton
    Left = 584
    Top = 8
    Width = 96
    Height = 25
    Caption = 'Cont Timer: ON'
    TabOrder = 11
    OnClick = Button_ContTimerEnableClick
  end
  object CheckBoxMemoRecShow: TCheckBox
    Left = 472
    Top = 434
    Width = 49
    Height = 17
    Caption = 'Show'
    Color = clSilver
    ParentColor = False
    TabOrder = 12
  end
  object ButtonSimComp: TButton
    Left = 20
    Top = 423
    Width = 75
    Height = 25
    Caption = 'SimComp'
    TabOrder = 13
    OnClick = ButtonSimCompClick
  end
  object ButtonClearSend: TButton
    Left = 717
    Top = 423
    Width = 75
    Height = 25
    Caption = 'Clear Send'
    TabOrder = 14
    OnClick = ButtonClearSendClick
  end
  object ButtonSimWriteMotor: TButton
    Left = 120
    Top = 423
    Width = 90
    Height = 25
    Caption = 'SimWriteMotor'
    TabOrder = 15
    OnClick = ButtonSimWriteMotorClick
  end
  object YbComm1: TYbCommDevice
    PortNo = 17
    PortName = 'COM17'
    Left = 653
    Top = 100
  end
  object Timer_ContSend: TTimer
    OnTimer = Timer_ContSendTimer
    Left = 576
    Top = 104
  end
end
